home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / WB / ScreenClock / Miami / rexx / MiamiNowOffline.miami next >
Encoding:
Text File  |  1999-12-01  |  1.2 KB  |  51 lines
  1. /*
  2. **  ARexx script to say that Miami is offline plus
  3. **  display the connectstring and log the date/time in "Data:logs/Miami_phone.mylog"
  4. **
  5. **  ONLINE_stop contains the stopped time 
  6. **  ONLINE_online
  7. **
  8. **  01-12-99: The date format is now 'dd-mm-yy', the 'mm' is now a number,
  9. **            cause arexx doesn't gives localised dates.
  10. **
  11. **  By T.Igracki@gmx.de
  12. */
  13.  
  14. PARSE ARG passive
  15. pass = ""; IF passive ~= "" THEN pass = "passive"
  16.  
  17. OPTIONS RESULTS
  18.  
  19. LF = '0a'x
  20.  
  21. SHELL COMMAND "SetEnv SAVE ONLINE 0 >NIL:"
  22. datum = TRANSLATE(DATE('E'), "-", "/")||" "Time()
  23.  
  24. SHELL COMMAND "SetEnv ONLINE_stop "datum
  25.  
  26. /* rette online start */
  27. SHELL ENV2REXX GETENV ONLINE_start
  28. onlineStart = RESULT
  29.  
  30. SHELL COMMAND "Delete ENVARC:ONLINE_start"
  31. SHELL COMMAND "Delete ENV:ONLINE_start"
  32.  
  33. ADDRESS 'MIAMI.1'
  34.  
  35. /* onlinetime = hours":"mins":"secs*/
  36. onlinetime = datum "-" onlineStart
  37.  
  38. IF ~OPEN('log', 'Data:Logs/Miami_phone.mylog', 'A') THEN 
  39.    ok = OPEN('log', 'Data:Logs/Miami_phone.mylog', 'W')
  40. ELSE
  41.    ok = 1
  42.  
  43. IF ok THEN DO
  44.    CALL WRITELN('log', "Offline "datum" "pass)
  45.    CALL WRITELN('log', "Time    "onlinetime)
  46.    CALL WRITELN('log',"")
  47.    CALL CLOSE('log')
  48. END
  49. ELSE
  50.    Say "Failed to open logfile (Data:Logs/Miami_phone.mylog)!"
  51.